(read-quoted-char): Don't mask down to 8 bits.

diff --git a/lisp/subr.el b/lisp/subr.el
index ccd08a52cd0fda1b5e6cb288ad081cb6abb8d4f8..a4ad6937f43355b979502a33e9216fc3990d3e4b 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -639,7 +639,7 @@ or three octal digits representing its character code."))
            (t (setq code char count 259))))
     ;; Turn a meta-character into a character with the 0200 bit set.
     (logior (if (/= (logand code ?\M-\^@) 0) 128 0)
-           (logand 255 code))))
+           code)))
 
 (defun force-mode-line-update (&optional all)
   "Force the mode-line of the current buffer to be redisplayed.